home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / pour.dxr / 00012_Clock arrows.ls < prev    next >
Encoding:
Text File  |  2000-03-23  |  1.6 KB  |  78 lines
  1. property pSpr, pOrigMem, pRollMem, pCloseMem, pCloseRollMem, pState, pDirection
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pOrigMem = pSpr.member
  6.   pRollMem = nextMember(pOrigMem, 1)
  7.   pCloseMem = nextMember(pOrigMem, 2)
  8.   pCloseRollMem = nextMember(pOrigMem, 3)
  9.   pState = #green
  10. end
  11.  
  12. on mRefresh me
  13.   if pState = #green then
  14.     pSpr.member = pOrigMem
  15.   else
  16.     pSpr.member = pCloseMem
  17.   end if
  18. end
  19.  
  20. on mReinstate me, direction
  21.   if direction = pDirection then
  22.     pState = #red
  23.   else
  24.     pState = #green
  25.   end if
  26.   mRefresh(me)
  27. end
  28.  
  29. on mouseLeave me
  30.   mRefresh(me)
  31.   if the stage <> the activeWindow then
  32.     tell the stage
  33.       hideToolTip()
  34.     end tell
  35.   end if
  36. end
  37.  
  38. on mouseEnter me
  39.   global gDrinkContentSpr
  40.   if pState = #green then
  41.     pSpr.member = pRollMem
  42.   else
  43.     pSpr.member = pCloseRollMem
  44.   end if
  45.   myRect = (the activeWindow).rect
  46.   stageRect = (the stage).rect
  47.   tipLoc = point(myRect.left - stageRect.left, myRect.bottom - stageRect.top + 5)
  48.   if the stage <> the activeWindow then
  49.     tell the stage
  50.       showToolTip(sprite(me.spriteNum), #pourmeter, tipLoc, 1)
  51.     end tell
  52.   end if
  53. end
  54.  
  55. on mCloseText me, thisSprite
  56.   if thisSprite <> pSpr then
  57.     pState = #green
  58.     mRefresh(me)
  59.   end if
  60. end
  61.  
  62. on mouseDown me
  63.   flag = pState = #green
  64.   if pState = #green then
  65.     sendAllSprites(#mCloseText, pSpr)
  66.     pState = #red
  67.   else
  68.     mCloseText(me)
  69.   end if
  70.   mRefresh(me)
  71.   soundFX("recipe_close", 0, 0)
  72.   refreshDrinkContents(pDirection, flag)
  73. end
  74.  
  75. on getPropertyDescriptionList me
  76.   return [#pDirection: [#range: [#right, #bottom, #left], #format: #symbol, #comment: "Arrow", #default: #right]]
  77. end
  78.